﻿<Serializable()> _
Public Class EseparacionVenta

#Region "           Atributos                       "
    Private _idProyecto As Int32
    Private _idEtapa As Int32
    Private _idSeparacionVenta As Int32
    Private _idPenMor As Int32
    Private _descPerMor As String
    Private _idTempSeparacionVenta As Int32
    Private _idCliente As Int32
    Private _nroDocumento As String         'es dcmto del cliente se cambio por el idCliente
    Private _idVendedor As Int32
    Private _ahorroPrevio As Int32
    Private _idEntidadFin As Int32
    Private _Ecorredora As Ecorredora
    Private _totalPrecioVenta As Decimal
    Private _totalSeparacion As Decimal
    Private _rutaScannerSeparacion As String
    Private _fchVencimiento As String
    Private _ctaInicial As Decimal
    Private _financiamiento As Decimal
    Private _saldo As Decimal
    Private _adicional As Decimal
    Private _descuento As Decimal
    Private _total As Decimal
    Private _observacion As String

    Private _vistoLegal As Int32
    Private _fchLegal As String
    Private _vistoComercial As Int32
    Private _fchComercial As String

    Private _fchOperacion As String 'es la fecha cuando se hizo la separación real
    Private _fchSeparacion As String
    Private _fchVenta As String
    Private _tpoGestion As Int32
    Private _descGestion As String
    Private _EentidadFin As EentidadFin

    Private _fchEntrega As String
    Private _fchCancelacionTemp As String
    Private _obsEntrega As String
    Private _Enotaria As Enotaria
    Private _nroKardex As String
    Private _nroTitulo As String
    Private _obsNotaria As String

    Private _estado As String
    Private _descEstado As String
    Private _idUsuario As Int32

    Private _Ecliente As Ecliente
    Private _telefonoFijo As String
    Private _descFormaPago As String
    Private _descFormaPagoCtaInicial As String
    Private _descFormaPagoSaldoFin As String

    Private _descEntidadFin As String

    Private _idNotaria As Int32

    '-------   MENU ATENCION CLIENTE  ------'
    Private _Eproyecto As Eproyecto
    Private _descProyecto As String
    Private _Eetapa As Eetapa
    Private _descEtapa As String
    Private _Evendedor As Evendedor
    Private _descSeguimiento As String
    Private _idProforma As Int32

    '-------    MENU REPORTE    ------------'
    Private _EtpoInmueble As EtpoInmueble
    Private _EedificioManz As EedificioManz
    Private _EunidInmobiliarias As EunidInmobiliarias
    Private _descTpoInmueble As String
    Private _nomEdiMzn As String
    Private _idUndInmob As Int32
    Private _valorVenta As Decimal

    Private _fchInicio As String
    Private _fchFin As String

    '------- Rpt Pendientes Pagos  ---------'
    Private _fchCtaInicial As String
    Private _fchSaldoFinanciar As String
    Private _EformaPago As EformaPago
    Private _montoDeuda As Decimal
    '---------------------------------------'
    Private _filtro As String 'sirve para filtrar la separacion - venta

    '---------------------------------------'
    Private _correlativo As Int64

    '------------ Cobranzas  ---------------'
    Private _detalle As String
#End Region

#Region "           Propiedades                     "
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property idEtapa() As Int32
        Get
            Return _idEtapa
        End Get
        Set(ByVal value As Int32)
            _idEtapa = value
        End Set
    End Property
    Public Property idSeparacionVenta() As Int32
        Get
            Return _idSeparacionVenta
        End Get
        Set(ByVal value As Int32)
            _idSeparacionVenta = value
        End Set
    End Property
    Public Property idPenMor() As Int32
        Get
            Return _idPenMor
        End Get
        Set(ByVal value As Int32)
            _idPenMor = value
        End Set
    End Property
    Public Property descPenMor() As String
        Get
            Return _descPerMor
        End Get
        Set(ByVal value As String)
            _descPerMor = value
        End Set
    End Property
    Public Property idTempSeparacionVenta() As Int32
        Get
            Return _idTempSeparacionVenta
        End Get
        Set(ByVal value As Int32)
            _idTempSeparacionVenta = value
        End Set
    End Property
    Public Property idCliente() As Int32
        Get
            Return _idCliente
        End Get
        Set(ByVal value As Int32)
            _idCliente = value
        End Set
    End Property
    Public Property nroDocumento() As String
        Get
            Return _nroDocumento
        End Get
        Set(ByVal value As String)
            _nroDocumento = value
        End Set
    End Property
    Public Property idVendedor() As Int32
        Get
            Return _idVendedor
        End Get
        Set(ByVal value As Int32)
            _idVendedor = value
        End Set
    End Property
    Public Property ahorroPrevio() As Int32
        Get
            Return _ahorroPrevio
        End Get
        Set(ByVal value As Int32)
            _ahorroPrevio = value
        End Set
    End Property
    Public Property idEntidadFin() As Int32
        Get
            Return _idEntidadFin
        End Get
        Set(ByVal value As Int32)
            _idEntidadFin = value
        End Set
    End Property
    Public Property Ecorredora() As Ecorredora
        Get
            Return _Ecorredora
        End Get
        Set(ByVal value As Ecorredora)
            _Ecorredora = value
        End Set
    End Property
    Public Property totalPrecioVenta() As Decimal
        Get
            Return _totalPrecioVenta
        End Get
        Set(ByVal value As Decimal)
            _totalPrecioVenta = value
        End Set
    End Property
    Public Property totalSeparacion() As Decimal
        Get
            Return _totalSeparacion
        End Get
        Set(ByVal value As Decimal)
            _totalSeparacion = value
        End Set
    End Property
    Public Property rutaScannerSeparacion() As String
        Get
            Return _rutaScannerSeparacion
        End Get
        Set(ByVal value As String)
            _rutaScannerSeparacion = value
        End Set
    End Property
    Public Property fchVencimiento() As String
        Get
            Return _fchVencimiento
        End Get
        Set(ByVal value As String)
            _fchVencimiento = value
        End Set
    End Property
    Public Property ctaInicial() As Decimal
        Get
            Return _ctaInicial
        End Get
        Set(ByVal value As Decimal)
            _ctaInicial = value
        End Set
    End Property
    Public Property financiamiento() As Decimal
        Get
            Return _financiamiento
        End Get
        Set(ByVal value As Decimal)
            _financiamiento = value
        End Set
    End Property
    Public Property saldo() As Decimal
        Get
            Return _saldo
        End Get
        Set(ByVal value As Decimal)
            _saldo = value
        End Set
    End Property
    Public Property adicional() As Decimal
        Get
            Return _adicional
        End Get
        Set(ByVal value As Decimal)
            _adicional = value
        End Set
    End Property
    Public Property descuento() As Decimal
        Get
            Return _descuento
        End Get
        Set(ByVal value As Decimal)
            _descuento = value
        End Set
    End Property
    Public Property total() As Decimal
        Get
            Return _total
        End Get
        Set(ByVal value As Decimal)
            _total = value
        End Set
    End Property
    Public Property observacion() As String
        Get
            Return _observacion
        End Get
        Set(ByVal value As String)
            _observacion = value
        End Set
    End Property

    Public Property vistoLegal() As Int32
        Get
            Return _vistoLegal
        End Get
        Set(ByVal value As Int32)
            _vistoLegal = value
        End Set
    End Property
    Public Property fchLegal() As String
        Get
            Return _fchLegal
        End Get
        Set(ByVal value As String)
            _fchLegal = value
        End Set
    End Property
    Public Property victoComercial() As Int32
        Get
            Return _vistoComercial
        End Get
        Set(ByVal value As Int32)
            _vistoComercial = value
        End Set
    End Property
    Public Property fchComercial() As String
        Get
            Return _fchComercial
        End Get
        Set(ByVal value As String)
            _fchComercial = value
        End Set
    End Property

    Public Property fchOperacion() As String
        Get
            Return _fchOperacion
        End Get
        Set(ByVal value As String)
            _fchOperacion = value
        End Set
    End Property
    Public Property fchSeparacion() As String
        Get
            Return _fchSeparacion
        End Get
        Set(ByVal value As String)
            _fchSeparacion = value
        End Set
    End Property
    Public Property fchVenta() As String
        Get
            Return _fchVenta
        End Get
        Set(ByVal value As String)
            _fchVenta = value
        End Set
    End Property
    Public Property tpoGestion() As Int32
        Get
            Return _tpoGestion
        End Get
        Set(ByVal value As Int32)
            _tpoGestion = value
        End Set
    End Property
    Public Property descGestion() As String
        Get
            Return _descGestion
        End Get
        Set(ByVal value As String)
            _descGestion = value
        End Set
    End Property
    Public Property EentidadFin() As EentidadFin
        Get
            Return _EentidadFin
        End Get
        Set(ByVal value As EentidadFin)
            _EentidadFin = value
        End Set
    End Property

    Public Property fchEntrega() As String
        Get
            Return _fchEntrega
        End Get
        Set(ByVal value As String)
            _fchEntrega = value
        End Set
    End Property
    Public Property fchCancelacionTemp() As String
        Get
            Return _fchCancelacionTemp
        End Get
        Set(ByVal value As String)
            _fchCancelacionTemp = value
        End Set
    End Property
    Public Property obsEntrega() As String
        Get
            Return _obsEntrega
        End Get
        Set(ByVal value As String)
            _obsEntrega = value
        End Set
    End Property
    Public Property Enotarias() As Enotaria
        Get
            Return _Enotaria
        End Get
        Set(ByVal value As Enotaria)
            _Enotaria = value
        End Set
    End Property
    Public Property nroKardex() As String
        Get
            Return _nroKardex
        End Get
        Set(ByVal value As String)
            _nroKardex = value
        End Set
    End Property
    Public Property nroTitulo() As String
        Get
            Return _nroTitulo
        End Get
        Set(ByVal value As String)
            _nroTitulo = value
        End Set
    End Property
    Public Property obsNotaria() As String
        Get
            Return _obsNotaria
        End Get
        Set(ByVal value As String)
            _obsNotaria = value
        End Set
    End Property

    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
    Public Property Ecliente() As Ecliente
        Get
            Return _Ecliente
        End Get
        Set(ByVal value As Ecliente)
            _Ecliente = value
        End Set
    End Property

    'Public Property nroDocumento() As String
    '    Get
    '        Return Ecliente.nroDocumento
    '    End Get
    '    Set(ByVal value As String)
    '        Ecliente.nroDocumento = value
    '    End Set
    'End Property    
    Public Property nombre() As String
        Get
            Return Ecliente.nombre
        End Get
        Set(ByVal value As String)
            Ecliente.nombre = value
        End Set
    End Property
    Public Property apePaterno() As String
        Get
            Return Ecliente.apePaterno
        End Get
        Set(ByVal value As String)
            Ecliente.apePaterno = value
        End Set
    End Property
    Public Property apeMaterno() As String
        Get
            Return Ecliente.apeMaterno
        End Get
        Set(ByVal value As String)
            Ecliente.apeMaterno = value
        End Set
    End Property
    Public Property telefonoFijo() As String
        Get
            Return _telefonoFijo
        End Get
        Set(ByVal value As String)
            _telefonoFijo = value
        End Set
    End Property
    Public Property descEntidadFin() As String
        Get
            Return _descEntidadFin
        End Get
        Set(ByVal value As String)
            _descEntidadFin = value
        End Set
    End Property

    Public Property idNotaria() As Int32
        Get
            Return _idNotaria
        End Get
        Set(ByVal value As Int32)
            _idNotaria = value
        End Set
    End Property

    '-------   MENU ATENCION CLIENTE  ------'
    Public Property Eproyecto() As Eproyecto
        Get
            Return _Eproyecto
        End Get
        Set(ByVal value As Eproyecto)
            _Eproyecto = value
        End Set
    End Property
    Public Property descProyecto() As String
        Get
            Return _descProyecto
        End Get
        Set(ByVal value As String)
            _descProyecto = value
        End Set
    End Property
    Public Property Eetapa() As Eetapa
        Get
            Return _Eetapa
        End Get
        Set(ByVal value As Eetapa)
            _Eetapa = value
        End Set
    End Property
    Public Property descEtapa() As String
        Get
            Return _descEtapa
        End Get
        Set(ByVal value As String)
            _descEtapa = value
        End Set
    End Property
    Public Property Evendedor() As Evendedor
        Get
            Return _Evendedor
        End Get
        Set(ByVal value As Evendedor)
            _Evendedor = value
        End Set
    End Property
    Public Property descSeguimiento() As String
        Get
            Return _descSeguimiento
        End Get
        Set(ByVal value As String)
            _descSeguimiento = value
        End Set
    End Property
    Public Property idProforma() As Int32
        Get
            Return _idProforma
        End Get
        Set(ByVal value As Int32)
            _idProforma = value
        End Set
    End Property

    '-------    MENU REPORTE    ------------'
    Public Property descTpoInmueble() As String
        Get
            Return _descTpoInmueble
        End Get
        Set(ByVal value As String)
            _descTpoInmueble = value
        End Set
    End Property
    Public Property nomEdiMzn() As String
        Get
            Return _nomEdiMzn
        End Get
        Set(ByVal value As String)
            _nomEdiMzn = value
        End Set
    End Property
    Public Property idUndInmob() As Int32
        Get
            Return _idUndInmob
        End Get
        Set(ByVal value As Int32)
            _idUndInmob = value
        End Set
    End Property
    Public Property valorVenta() As Decimal
        Get
            Return _valorVenta
        End Get
        Set(ByVal value As Decimal)
            _valorVenta = value
        End Set
    End Property
    Public Property telefonoCelular() As String
        Get
            Return Ecliente.telefonoCelular
        End Get
        Set(ByVal value As String)
            Ecliente.telefonoCelular = value
        End Set
    End Property
    Public Property EtpoInmueble() As EtpoInmueble
        Get
            Return _EtpoInmueble
        End Get
        Set(ByVal value As EtpoInmueble)
            _EtpoInmueble = value
        End Set
    End Property
    Public Property EedificioManz() As EedificioManz
        Get
            Return _EedificioManz
        End Get
        Set(ByVal value As EedificioManz)
            _EedificioManz = value
        End Set
    End Property
    Public Property EunidInmobiliarias() As EunidInmobiliarias
        Get
            Return _EunidInmobiliarias
        End Get
        Set(ByVal value As EunidInmobiliarias)
            _EunidInmobiliarias = value
        End Set
    End Property

    Public Property fchInicio() As String
        Get
            Return _fchInicio
        End Get
        Set(ByVal value As String)
            _fchInicio = value
        End Set
    End Property
    Public Property fchFin() As String
        Get
            Return _fchFin
        End Get
        Set(ByVal value As String)
            _fchFin = value
        End Set
    End Property

    '------- Rpt Pendientes Pagos  ---------'
    Public Property fchCtaInicial() As String
        Get
            Return _fchCtaInicial
        End Get
        Set(ByVal value As String)
            _fchCtaInicial = value
        End Set
    End Property
    Public Property fchSaldoFinanciar() As String
        Get
            Return _fchSaldoFinanciar
        End Get
        Set(ByVal value As String)
            _fchSaldoFinanciar = value
        End Set
    End Property
    Public Property EformaPago() As EformaPago
        Get
            Return _EformaPago
        End Get
        Set(ByVal value As EformaPago)
            _EformaPago = value
        End Set
    End Property
    Public Property descFormaPago() As String
        Get
            Return _descFormaPago
        End Get
        Set(ByVal value As String)
            _descFormaPago = value
        End Set
    End Property
    Public Property descFormaPagoCtaInicial() As String
        Get
            Return _descFormaPagoCtaInicial
        End Get
        Set(ByVal value As String)
            _descFormaPagoCtaInicial = value
        End Set
    End Property
    Public Property descFormaPagoSaldoFin() As String
        Get
            Return _descFormaPagoSaldoFin
        End Get
        Set(ByVal value As String)
            _descFormaPagoSaldoFin = value
        End Set
    End Property
    Public Property montoDeuda() As Decimal
        Get
            Return _montoDeuda
        End Get
        Set(ByVal value As Decimal)
            _montoDeuda = value
        End Set
    End Property
    '---------------------------------------'
    Public Property filtro() As String
        Get
            Return _filtro
        End Get
        Set(ByVal value As String)
            _filtro = value
        End Set
    End Property

    '---------------------------------------'
    Public Property correlativo() As Int64
        Get
            Return _correlativo
        End Get
        Set(ByVal value As Int64)
            _correlativo = value
        End Set
    End Property

    '------------ Cobranzas  ---------------'
    Public Property detalle() As String
        Get
            Return _detalle
        End Get
        Set(ByVal value As String)
            _detalle = value
        End Set
    End Property
    '---------------------------------------'
#End Region

#Region "           Propiedades Avanzadas           "
    Public ReadOnly Property NombresCompletos() As String
        Get
            Return nombre & " " & apePaterno & " " & apeMaterno
        End Get
    End Property
    Public ReadOnly Property NombresCompletosNroDoc() As String
        Get
            Return "[" & nroDocumento & "] " & nombre & " " & apePaterno & " " & apeMaterno
        End Get
    End Property

    '-------   MENU ATENCION CLIENTE  ------'
    Public ReadOnly Property StringidSeparacionVenta() As String
        Get
            Return "GESTION " + idSeparacionVenta.ToString + " :"
        End Get
    End Property
    Public ReadOnly Property NombresCompletoVendedor() As String
        Get
            Return Evendedor.apePaterno + " " + Evendedor.apeMaterno + ", " + Evendedor.nombre
        End Get
    End Property

    '-------    MENU REPORTE    ------------'
    Public ReadOnly Property Telefonos() As String
        Get
            Return telefonoFijo.ToString + "-" + telefonoCelular.ToString
        End Get
    End Property

    '-------   MENU REPORTE - VENTA   ------'
    Public ReadOnly Property nombreCompletosCliente() As String
        Get
            Return Ecliente.NombresCompletos
            'Return _Ecliente.NombresCompletos
        End Get
    End Property
    Public ReadOnly Property nombreCompletosClienteOrRazonSocial() As String
        Get
            If _Ecliente.EtpoDcmto.idTpoDcmto = 2 Then
                Return _Ecliente.razonSocial
            Else
                Return _Ecliente.NombresCompletos
            End If
        End Get
    End Property
    Public ReadOnly Property tpoDocumentoNumero() As String
        Get
            Return Ecliente.EtpoDcmto.descTpoDcmto.Trim + ": " + nroDocumento.Trim
            'Return _Ecliente.EtpoDcmto.descTpoDcmto.Trim + ": " + nroDocumento.Trim
        End Get
    End Property
    Public ReadOnly Property TelefonosCliente() As String
        Get
            Return _Ecliente.Telefonos
        End Get
    End Property
    Public ReadOnly Property nroDcmtoCliente() As String
        Get
            Return _Ecliente.nroDocumento
        End Get
    End Property
    Public ReadOnly Property nombreBloque()
        Get
            Return _EedificioManz.nomEdiMzn
        End Get
    End Property
    Public ReadOnly Property nroInmueble()
        Get
            Return _EunidInmobiliarias.nroInmueble.Trim
        End Get
    End Property

    '-------   MENU SEGUIMIENTO   ------'
    Public ReadOnly Property consultar()
        Get
            Return _EunidInmobiliarias.nroInmueble.Trim
        End Get
    End Property
    '---------------------------------------'
#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, _
                   ByVal idCliente As Int32, ByVal idVendedor As Int32, ByVal ahorroPrevio As Int32, _
                   ByVal idEntidadFin As Int32, ByVal totalSeparacion As Decimal, ByVal fchVencimiento As String, _
                   ByVal ctaInicial As Decimal, ByVal financiamiento As Decimal, ByVal saldo As Decimal, _
                   ByVal adicional As Decimal, ByVal descuento As Decimal, ByVal total As Decimal, _
                   ByVal observacion As String, ByVal estado As String, ByVal idUsuario As Int32, _
                   ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal edad As Int32, _
                   ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal fchNacimineto As String, ByVal idEstCivil As Int32, ByVal nroDependientes As Int32, _
                   ByVal sexo As Int32, ByVal idEstudio As Int32, ByVal nacionalidad As String, ByVal telefonoFijo As String, _
                   ByVal telefonoCelular As String, ByVal email As String, ByVal idUbigeo As String, _
                   ByVal urbanizacion As String, ByVal direccion As String, ByVal separacionBienes As Int32, _
                   ByVal nroPartida As String, ByVal idProfesion As Int32, ByVal idOcupacion As Int32, _
                   ByVal ruc As String, ByVal razonSocialLaboral As String, ByVal giro As String, _
                   ByVal idUbigeoLaboral As String, ByVal urbanizacionLaboral As String, ByVal direccionLaboral As String, _
                   ByVal telefonoLaboral As String, ByVal telefonoLaboral2 As String, ByVal puesto As String, _
                   ByVal antiguedadLaboral As Int32, ByVal ingresos As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idCliente = idCliente
        Me.idVendedor = idVendedor
        Me.ahorroPrevio = ahorroPrevio
        Me.idEntidadFin = idEntidadFin
        Me.totalSeparacion = totalSeparacion
        Me.fchVencimiento = fchVencimiento
        Me.ctaInicial = ctaInicial
        Me.financiamiento = financiamiento
        Me.saldo = saldo
        Me.adicional = adicional
        Me.descuento = descuento
        Me.total = total
        Me.observacion = observacion
        Me.estado = estado
        Me.idUsuario = idUsuario
        _Ecliente = New Ecliente
        _Ecliente.EtpoDcmto = New EtpoDcmto
        _Ecliente.EtpoDcmto.idTpoDcmto = idTpoDcmto
        _Ecliente.nroDocumento = nroDocumento
        _Ecliente.edad = edad
        _Ecliente.nombre = nombre
        _Ecliente.apePaterno = apePaterno
        _Ecliente.apeMaterno = apeMaterno
        _Ecliente.fchNacimineto = fchNacimineto
        _Ecliente.EestadoCivil = New EestadoCivil
        _Ecliente.EestadoCivil.idEstCivil = idEstCivil
        _Ecliente.nroDependientes = nroDependientes
        _Ecliente.sexo = sexo
        _Ecliente.Eestudio = New Eestudio
        _Ecliente.Eestudio.idEstudio = idEstudio
        _Ecliente.nacionalidad = nacionalidad
        _Ecliente.telefonoFijo = telefonoFijo
        _Ecliente.telefonoCelular = telefonoCelular
        _Ecliente.email = email
        _Ecliente.Eubigeo = New Eubigeo
        _Ecliente.Eubigeo.idUbigeo = idUbigeo
        _Ecliente.urbanizacion = urbanizacion
        _Ecliente.direccion = direccion
        _Ecliente.separacionBienes = separacionBienes
        _Ecliente.nroPartida = nroPartida
        '_Ecliente.idProfesion = idProfesion
        '_Ecliente.idOcupacion = idOcupacion
        _Ecliente.ruc = ruc
        _Ecliente.razonSocialLaboral = razonSocialLaboral
        _Ecliente.giro = giro
        '_Ecliente.idUbigeoLaboral = idUbigeoLaboral
        _Ecliente.urbanizacionLaboral = urbanizacionLaboral
        _Ecliente.direccionLaboral = direccionLaboral
        _Ecliente.telefonoLaboral = telefonoLaboral
        _Ecliente.telefonoLaboral2 = telefonoLaboral2
        _Ecliente.puesto = puesto
        _Ecliente.antiguedadLaboral = antiguedadLaboral
        _Ecliente.ingresos = ingresos
    End Sub

    '----- SEPARACION / VENTA FILTRA -----
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal idCliente As Int32, _
                   ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal edad As Int32, ByVal razonSocial As String, _
                   ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, ByVal fchNacimineto As String, _
                   ByVal idEstCivil As Int32, ByVal descEstCivil As String, ByVal nroDependientes As Int32, ByVal sexo As Int32, _
                   ByVal idEstudio As Int32, ByVal nacionalidad As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, _
                   ByVal email As String, ByVal idUbigeo As String, ByVal urbanizacion As String, ByVal direccion As String, _
                   ByVal separacionBienes As Int32, ByVal nroPartida As String, ByVal codPago As String, ByVal idProfesion As Int32, _
                   ByVal idOcupacion As Int32, ByVal descOcupacion As String, ByVal ruc As String, ByVal razonSocialLaboral As String, _
                   ByVal giro As String, ByVal idUbigeoLaboral As String, ByVal urbanizacionLaboral As String, ByVal direccionLaboral As String, _
                   ByVal telefonoUno As String, ByVal telefonoDos As String, ByVal puesto As String, ByVal antiguedadLaboral As Int32, _
                   ByVal ingresos As Decimal, ByVal telefonoCelularDos As String, ByVal idTpoPersona As Int32, ByVal idRelacion As Int32, _
                   ByVal rutaScannerSeparacion As String, ByVal idVendedor As Int32, ByVal nombreVendedor As String, ByVal apePatVendedor As String, _
                   ByVal apeMatVendedor As String, ByVal ahorroPrevio As Int32, ByVal idEntidadFin As Int32, ByVal idCorredora As Int32, _
                   ByVal fchOperacion As String, ByVal fchVencimiento As String, ByVal adicional As Decimal, ByVal descuento As Decimal, _
                   ByVal total As Decimal, ByVal observacion As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.Ecliente = New Ecliente(idCliente, idTpoDcmto, nroDocumento, edad, razonSocial, _
                                   nombre, apePaterno, apeMaterno, fchNacimineto, _
                                   idEstCivil, descEstCivil, nroDependientes, sexo, _
                                   idEstudio, nacionalidad, telefonoFijo, telefonoCelular, _
                                   email, idUbigeo, urbanizacion, direccion, separacionBienes, _
                                   nroPartida, codPago, idProfesion, idOcupacion, descOcupacion, _
                                   ruc, razonSocialLaboral, giro, idUbigeoLaboral, _
                                   urbanizacionLaboral, direccionLaboral, telefonoUno, telefonoDos, _
                                   puesto, antiguedadLaboral, ingresos, telefonoCelularDos, _
                                   idTpoPersona, idRelacion)
        Me.rutaScannerSeparacion = rutaScannerSeparacion
        Me.Evendedor = New Evendedor(idVendedor, nombreVendedor, apePatVendedor, apeMatVendedor)
        Me.ahorroPrevio = ahorroPrevio
        Me.idEntidadFin = idEntidadFin
        Me.Ecorredora = New Ecorredora(idCorredora, "")
        'Me.Ecorredora.idCorredora = idCorredora
        Me.fchOperacion = fchOperacion
        Me.fchVencimiento = fchVencimiento
        Me.adicional = adicional
        Me.descuento = descuento
        Me.total = total
        Me.observacion = observacion

        Me.telefonoFijo = ""
        Me.telefonoCelular = ""
        Me.Ecliente.EtpoDcmto = New EtpoDcmto(idTpoDcmto, "")
        Me.nroDocumento = nroDocumento
        Me.EedificioManz = New EedificioManz(0, "")
        Me.EunidInmobiliarias = New EunidInmobiliarias()
        Me.EunidInmobiliarias.nroInmueble = ""
        Me.EunidInmobiliarias.EmodeloInmueble = New EmodeloInmueble(0, "")
        Me.EunidInmobiliarias.EmodeloInmueble.EtpoInmueble = New EtpoInmueble(0, "")
        Me.EunidInmobiliarias.descModelo = ""
        Me.EunidInmobiliarias.descTpoInmueble = ""
        Me.EunidInmobiliarias.nroInmueble = ""
        Me.EunidInmobiliarias.EediMazn = New EedificioManz(0, "")
        Me.EunidInmobiliarias.Ecliente = New Ecliente()
        Me.EunidInmobiliarias.Econyugue = New Ecliente()
    End Sub

    '----- SEPARACION TEMPORAL -----
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal idProforma As Int32, ByVal idCliente As Int32, _
                   ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal edad As Int32, ByVal razonSocial As String, _
                   ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, ByVal fchNacimineto As String, _
                   ByVal idEstCivil As Int32, ByVal descEstCivil As String, ByVal nroDependientes As Int32, ByVal sexo As Int32, _
                   ByVal idEstudio As Int32, ByVal nacionalidad As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, _
                   ByVal email As String, ByVal idUbigeo As String, ByVal urbanizacion As String, ByVal direccion As String, _
                   ByVal separacionBienes As Int32, ByVal nroPartida As String, ByVal codPago As String, ByVal idProfesion As Int32, _
                   ByVal idOcupacion As Int32, ByVal descOcupacion As String, ByVal ruc As String, ByVal razonSocialLaboral As String, _
                   ByVal giro As String, ByVal idUbigeoLaboral As String, ByVal urbanizacionLaboral As String, ByVal direccionLaboral As String, _
                   ByVal telefonoUno As String, ByVal telefonoDos As String, ByVal puesto As String, ByVal antiguedadLaboral As Int32, _
                   ByVal ingresos As Decimal, ByVal telefonoCelularDos As String, ByVal idTpoPersona As Int32, ByVal idRelacion As Int32, _
                   ByVal rutaScannerSeparacion As String, ByVal idVendedor As Int32, ByVal nombreVendedor As String, ByVal apePatVendedor As String, _
                   ByVal apeMatVendedor As String, ByVal ahorroPrevio As Int32, ByVal idEntidadFin As Int32, ByVal idCorredora As Int32, _
                   ByVal fchOperacion As String, ByVal fchVencimiento As String, ByVal fchCancelacionTemp As String, ByVal adicional As Decimal, _
                   ByVal descuento As Decimal, ByVal total As Decimal, ByVal observacion As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idProforma = idProforma
        Me.Ecliente = New Ecliente(idCliente, idTpoDcmto, nroDocumento, edad, razonSocial, _
                                   nombre, apePaterno, apeMaterno, fchNacimineto, _
                                   idEstCivil, descEstCivil, nroDependientes, sexo, _
                                   idEstudio, nacionalidad, telefonoFijo, telefonoCelular, _
                                   email, idUbigeo, urbanizacion, direccion, separacionBienes, _
                                   nroPartida, codPago, idProfesion, idOcupacion, descOcupacion, _
                                   ruc, razonSocialLaboral, giro, idUbigeoLaboral, _
                                   urbanizacionLaboral, direccionLaboral, telefonoUno, telefonoDos, _
                                   puesto, antiguedadLaboral, ingresos, telefonoCelularDos, _
                                   idTpoPersona, idRelacion)
        Me.rutaScannerSeparacion = rutaScannerSeparacion
        Me.Evendedor = New Evendedor(idVendedor, nombreVendedor, apePatVendedor, apeMatVendedor)
        Me.ahorroPrevio = ahorroPrevio
        Me.idEntidadFin = idEntidadFin
        Me.Ecorredora = New Ecorredora(idCorredora, "")
        'Me.Ecorredora.idCorredora = idCorredora
        Me.fchOperacion = fchOperacion
        Me.fchVencimiento = fchVencimiento
        Me.fchCancelacionTemp = fchCancelacionTemp
        Me.adicional = adicional
        Me.descuento = descuento
        Me.total = total
        Me.observacion = observacion

        Me.telefonoFijo = ""
        Me.telefonoCelular = ""
        Me.Ecliente.EtpoDcmto = New EtpoDcmto(idTpoDcmto, "")
        Me.nroDocumento = nroDocumento
        Me.EedificioManz = New EedificioManz(0, "")
        Me.EunidInmobiliarias = New EunidInmobiliarias()
        Me.EunidInmobiliarias.nroInmueble = ""
        Me.EunidInmobiliarias.EmodeloInmueble = New EmodeloInmueble(0, "")
        Me.EunidInmobiliarias.EmodeloInmueble.EtpoInmueble = New EtpoInmueble(0, "")
        Me.EunidInmobiliarias.descModelo = ""
        Me.EunidInmobiliarias.descTpoInmueble = ""
        Me.EunidInmobiliarias.nroInmueble = ""
        Me.EunidInmobiliarias.EediMazn = New EedificioManz(0, "")
        Me.EunidInmobiliarias.Ecliente = New Ecliente()
        Me.EunidInmobiliarias.Econyugue = New Ecliente()
    End Sub

    '-------    MENU SEGUIMIENTO    --------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal fchSeparacion As String, _
                   ByVal fchVenta As String, ByVal nombre As String, ByVal apePaterno As String, _
                   ByVal apeMaterno As String, ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal nroDocumento As String, _
                   ByVal telefonoFijo As String, ByVal financiamiento As Decimal, ByVal idEntidadFin As Int32, ByVal descEntidadFin As String, _
                   ByVal tpoGestion As Int32, ByVal descGestion As String, ByVal descSeguimiento As String, ByVal idUsuario As Int32)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchSeparacion = fchSeparacion
        Me.fchVenta = fchVenta
        'Me.idCliente = idCliente
        Me.telefonoFijo = telefonoFijo
        _Ecliente = New Ecliente(idCliente, nombre, apePaterno, apeMaterno, idTpoDcmto, descTpoDcmto, nroDocumento, telefonoFijo)
        Me.nroDocumento = nroDocumento
        Me.financiamiento = financiamiento
        Me.idEntidadFin = idEntidadFin
        Me.descEntidadFin = descEntidadFin
        _EentidadFin = New EentidadFin(idEntidadFin, descEntidadFin)
        Me.tpoGestion = tpoGestion
        Me.descGestion = descGestion
        Me.descSeguimiento = descSeguimiento
        Me.idUsuario = idUsuario
    End Sub
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal fchEntrega As String, _
                   ByVal obsEntrega As String, ByVal idNotaria As Int32, ByVal descNotaria As String, ByVal nroKardex As String, _
                   ByVal nroTitulo As String, ByVal obsNotaria As String, ByVal idUsuario As Int32)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchEntrega = fchEntrega
        Me.obsEntrega = obsEntrega
        Me.idNotaria = idNotaria
        Me.Enotarias = New Enotaria(idNotaria, descNotaria)
        Me.nroKardex = nroKardex
        Me.nroTitulo = nroTitulo
        Me.obsNotaria = obsNotaria
        Me.idUsuario = idUsuario
    End Sub

    '-------    MENU REPORTE    ------------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, _
                ByVal idVendedor As Int32, ByVal ahorroPrevio As Int32, _
                ByVal idEntidadFin As Int32, ByVal totalSeparacion As Decimal, ByVal fchVencimiento As String, _
                ByVal ctaInicial As Decimal, ByVal financiamiento As Decimal, ByVal saldo As Decimal, _
                ByVal adicional As Decimal, ByVal descuento As Decimal, ByVal total As Decimal, _
                ByVal observacion As String, ByVal estado As String, ByVal idUsuario As Int32, ByVal fchSeparacion As String, _
                ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal edad As Int32, _
                ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                ByVal fchNacimineto As String, ByVal idEstCivil As Int32, ByVal nroDependientes As Int32, _
                ByVal sexo As Int32, ByVal idEstudio As Int32, ByVal nacionalidad As String, ByVal telefonoFijo As String, _
                ByVal telefonoCelular As String, ByVal email As String, ByVal idUbigeo As String, _
                ByVal urbanizacion As String, ByVal direccion As String, ByVal separacionBienes As Int32, _
                ByVal nroPartida As String, ByVal idProfesion As Int32, ByVal idOcupacion As Int32, _
                ByVal ruc As String, ByVal razonSocialLaboral As String, ByVal giro As String, _
                ByVal idUbigeoLaboral As String, ByVal urbanizacionLaboral As String, ByVal direccionLaboral As String, _
                ByVal telefonoLaboral As String, ByVal telefonoLaboral2 As String, ByVal puesto As String, _
                ByVal antiguedadLaboral As Int32, ByVal ingresos As String, ByVal descEntidadFin As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idCliente = idCliente
        Me.idVendedor = idVendedor
        Me.ahorroPrevio = ahorroPrevio
        Me.idEntidadFin = idEntidadFin
        Me.totalSeparacion = totalSeparacion
        Me.fchVencimiento = fchVencimiento
        Me.ctaInicial = ctaInicial
        Me.financiamiento = financiamiento
        Me.saldo = saldo
        Me.adicional = adicional
        Me.descuento = descuento
        Me.total = total
        Me.observacion = observacion
        Me.estado = estado
        Me.idUsuario = idUsuario
        Me.fchSeparacion = fchSeparacion
        _Ecliente = New Ecliente
        _Ecliente.EtpoDcmto = New EtpoDcmto
        _Ecliente.EtpoDcmto.idTpoDcmto = idTpoDcmto
        _Ecliente.nroDocumento = nroDocumento
        _Ecliente.edad = edad
        _Ecliente.nombre = nombre
        _Ecliente.apePaterno = apePaterno
        _Ecliente.apeMaterno = apeMaterno
        _Ecliente.fchNacimineto = fchNacimineto
        _Ecliente.EestadoCivil = New EestadoCivil
        _Ecliente.EestadoCivil.idEstCivil = idEstCivil
        _Ecliente.nroDependientes = nroDependientes
        _Ecliente.sexo = sexo
        _Ecliente.Eestudio = New Eestudio
        _Ecliente.Eestudio.idEstudio = idEstudio
        _Ecliente.nacionalidad = nacionalidad
        _Ecliente.telefonoFijo = telefonoFijo
        _Ecliente.telefonoCelular = telefonoCelular
        _Ecliente.email = email
        _Ecliente.Eubigeo = New Eubigeo
        _Ecliente.Eubigeo.idUbigeo = idUbigeo
        _Ecliente.urbanizacion = urbanizacion
        _Ecliente.direccion = direccion
        _Ecliente.separacionBienes = separacionBienes
        _Ecliente.nroPartida = nroPartida
        '_Ecliente.idProfesion = idProfesion
        '_Ecliente.idOcupacion = idOcupacion
        _Ecliente.ruc = ruc
        _Ecliente.razonSocialLaboral = razonSocialLaboral
        _Ecliente.giro = giro
        '_Ecliente.idUbigeoLaboral = idUbigeoLaboral
        _Ecliente.urbanizacionLaboral = urbanizacionLaboral
        _Ecliente.direccionLaboral = direccionLaboral
        _Ecliente.telefonoLaboral = telefonoLaboral
        _Ecliente.telefonoLaboral2 = telefonoLaboral2
        _Ecliente.puesto = puesto
        _Ecliente.antiguedadLaboral = antiguedadLaboral
        _Ecliente.ingresos = ingresos
        _EentidadFin = New EentidadFin
        _EentidadFin.descEntidadFin = descEntidadFin
    End Sub
    'Public Sub New(ByVal correlativo As Int64, ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, _
    '               ByVal fchSeparacion As String, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
    '               ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, _
    '               ByVal descTpoInmueble As String, ByVal nomEdiMzn As String, ByVal idUndInmob As Int32, ByVal nroInmueble As String, _
    '               ByVal valorVenta As Decimal, ByVal totalSeparacion As Decimal, ByVal ctaInicial As Decimal, ByVal descEntidadFin As String, _
    '               ByVal fchVencimiento As String, ByVal financiamiento As Decimal, ByVal saldo As Decimal, ByVal adicional As Decimal, _
    '               ByVal descuento As Decimal, ByVal total As Decimal, ByVal observacion As String, ByVal estado As String, ByVal idUsuario As Int32)
    '    Me.correlativo = correlativo
    '    Me.idProyecto = idProyecto
    '    Me.idEtapa = idEtapa
    '    Me.idSeparacionVenta = idSeparacionVenta
    '    Me.fchSeparacion = fchSeparacion

    '    _Ecliente = New Ecliente
    '    _Ecliente.nombre = nombre
    '    _Ecliente.apePaterno = apePaterno
    '    _Ecliente.apeMaterno = apeMaterno
    '    _Ecliente.EtpoDcmto = New EtpoDcmto
    '    _Ecliente.EtpoDcmto.idTpoDcmto = idTpoDcmto
    '    _Ecliente.nroDocumento = nroDocumento
    '    _Ecliente.telefonoFijo = telefonoFijo
    '    _Ecliente.telefonoCelular = telefonoCelular

    '    Me.descTpoInmueble = descTpoInmueble
    '    _EedificioManz = New EedificioManz
    '    _EedificioManz.nomEdiMzn = nomEdiMzn

    '    _EunidInmobiliarias = New EunidInmobiliarias
    '    _EunidInmobiliarias.idUndInmob = idUndInmob
    '    _EunidInmobiliarias.nroInmueble = nroInmueble
    '    Me.valorVenta = valorVenta

    '    Me.totalSeparacion = totalSeparacion
    '    Me.ctaInicial = ctaInicial
    '    Me.descEntidadFin = descEntidadFin

    '    Me.fchVencimiento = fchVencimiento
    '    Me.financiamiento = financiamiento
    '    Me.saldo = saldo
    '    Me.adicional = adicional
    '    Me.descuento = descuento
    '    Me.total = total
    '    Me.observacion = observacion
    '    Me.estado = estado
    '    Me.idUsuario = idUsuario
    'End Sub

    '-------    MENU REPORTE SEPARACION    ------------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal fchSeparacion As String, ByVal nombre As String, _
                   ByVal apePaterno As String, ByVal apeMaterno As String, ByVal razonSocial As String, ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, _
                   ByVal nroDocumento As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal totalPrecioVenta As Decimal, ByVal totalSeparacion As Decimal, _
                   ByVal ctaInicial As Decimal, ByVal descFormaPago As String, ByVal descEntidadFin As String, ByVal fchVencimiento As String, ByVal financiamiento As Decimal, _
                   ByVal saldo As Decimal, ByVal adicional As Decimal, ByVal descuento As Decimal, ByVal total As Decimal, ByVal observacion As String, _
                   ByVal estado As String, ByVal idUsuario As Int32)
        'Me.correlativo = correlativo
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchSeparacion = fchSeparacion

        _Ecliente = New Ecliente
        _Ecliente.nombre = nombre
        _Ecliente.apePaterno = apePaterno
        _Ecliente.apeMaterno = apeMaterno
        _Ecliente.razonSocial = razonSocial
        _Ecliente.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        _Ecliente.nroDocumento = nroDocumento
        Me.nroDocumento = nroDocumento
        _Ecliente.telefonoFijo = telefonoFijo
        _Ecliente.telefonoCelular = telefonoCelular

        Me.totalPrecioVenta = totalPrecioVenta
        Me.totalSeparacion = totalSeparacion
        Me.ctaInicial = ctaInicial
        Me.descFormaPago = descFormaPago
        _EentidadFin = New EentidadFin
        _EentidadFin.descEntidadFin = descEntidadFin
        Me.descEntidadFin = descEntidadFin

        Me.fchVencimiento = fchVencimiento
        Me.financiamiento = financiamiento
        Me.saldo = saldo
        Me.adicional = adicional
        Me.descuento = descuento
        Me.total = total
        Me.observacion = observacion
        Me.estado = estado
        Me.idUsuario = idUsuario
    End Sub

    '-------    MENU REPORTE PENDIENTE DE PAGO ENCABEZADO ---'
    Public Sub New(ByVal correlativo As Int64, ByVal idSeparacionVenta As Int32, ByVal idPenMor As Int32, ByVal fchSeparacion As String, _
                   ByVal descGestion As String, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal nroDocumento As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal detalle As String, _
                   ByVal montoDeuda As Decimal, ByVal descEntidadFin As String)
        Me.correlativo = correlativo
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idPenMor = idPenMor
        If idPenMor = 1 Then
            descPenMor = "Pendiente"
        Else
            descPenMor = "Moroso"
        End If
        Me.fchSeparacion = fchSeparacion
        Me.descGestion = descGestion

        _Ecliente = New Ecliente
        _Ecliente.nombre = nombre
        _Ecliente.apePaterno = apePaterno
        _Ecliente.apeMaterno = apeMaterno
        _Ecliente.EtpoDcmto = New EtpoDcmto
        _Ecliente.nroDocumento = nroDocumento
        _Ecliente.telefonoFijo = telefonoFijo
        _Ecliente.telefonoCelular = telefonoCelular

        Me.detalle = detalle
        Me.montoDeuda = montoDeuda
        Me.descEntidadFin = descEntidadFin
    End Sub

    '-------    MENU REPORTE PENDIENTES DE PAGOS ------------'
    Public Sub New(ByVal correlativo As Int64, ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, _
                   ByVal fchSeparacion As String, ByVal descGestion As String, ByVal nombre As String, ByVal apePaterno As String, _
                   ByVal apeMaterno As String, ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal telefonoFijo As String, _
                   ByVal telefonoCelular As String, ByVal descTpoInmueble As String, ByVal nomEdiMzn As String, ByVal idUndInmob As Int32, _
                   ByVal nroInmueble As String, ByVal ctaInicial As Decimal, ByVal fchInicial As String, ByVal financiamiento As Decimal, _
                   ByVal fchFinanciamiento As String, ByVal idFormaPago As Int32, ByVal descFormaPago As String, ByVal descEntidadFin As String)
        Me.correlativo = correlativo
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchSeparacion = fchSeparacion
        Me.descGestion = descGestion

        _Ecliente = New Ecliente
        _Ecliente.nombre = nombre
        _Ecliente.apePaterno = apePaterno
        _Ecliente.apeMaterno = apeMaterno
        _Ecliente.EtpoDcmto = New EtpoDcmto
        _Ecliente.EtpoDcmto.idTpoDcmto = idTpoDcmto
        _Ecliente.nroDocumento = nroDocumento
        _Ecliente.telefonoFijo = telefonoFijo
        _Ecliente.telefonoCelular = telefonoCelular

        Me.descTpoInmueble = descTpoInmueble
        _EedificioManz = New EedificioManz
        _EedificioManz.nomEdiMzn = nomEdiMzn

        _EunidInmobiliarias = New EunidInmobiliarias
        _EunidInmobiliarias.idUndInmob = idUndInmob
        _EunidInmobiliarias.nroInmueble = nroInmueble

        Me.ctaInicial = ctaInicial
        Me.fchCtaInicial = fchCtaInicial
        Me.financiamiento = financiamiento
        Me.fchSaldoFinanciar = fchSaldoFinanciar

        Me.EformaPago = New EformaPago(idFormaPago, descFormaPago)
        Me.descFormaPago = descFormaPago
        Me.descEntidadFin = descEntidadFin
    End Sub

    '-------    MENU REPORTE INGRESOS POR DEPOSITOS ---------'
    Public Sub New(ByVal correlativo As Int64, ByVal idSeparacionVenta As Int32, ByVal fchSeparacion As String, ByVal descGestion As String, _
                   ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, ByVal nroDocumento As String, _
                   ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal detalle As String, ByVal totalSeparacion As Decimal, _
                   ByVal ctaInicial As Decimal, ByVal fchCtaInicial As String, ByVal descFormaPagoInicial As String, ByVal financiamiento As Decimal, _
                   ByVal fchSaldoFinanciar As String, ByVal descFormaPagoSaldo As String, ByVal descEntidadFin As String)
        Me.correlativo = correlativo
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchSeparacion = fchSeparacion
        Me.descGestion = descGestion

        _Ecliente = New Ecliente
        _Ecliente.nombre = nombre
        _Ecliente.apePaterno = apePaterno
        _Ecliente.apeMaterno = apeMaterno
        _Ecliente.EtpoDcmto = New EtpoDcmto
        _Ecliente.nroDocumento = nroDocumento
        _Ecliente.telefonoFijo = telefonoFijo
        _Ecliente.telefonoCelular = telefonoCelular

        Me.detalle = detalle
        Me.totalSeparacion = totalSeparacion
        Me.ctaInicial = ctaInicial
        If fchCtaInicial.Length = 8 Then
            Me.fchCtaInicial = Right(fchCtaInicial, 2) + "/" + fchCtaInicial.Substring(4, 2) + "/" + Left(fchCtaInicial, 4)
        Else
            Me.fchCtaInicial = ""
        End If
        Me.financiamiento = financiamiento
        If fchSaldoFinanciar.Length = 8 Then
            Me.fchSaldoFinanciar = Right(fchSaldoFinanciar, 2) + "/" + fchSaldoFinanciar.Substring(4, 2) + "/" + Left(fchSaldoFinanciar, 4)
        Else
            Me.fchSaldoFinanciar = ""
        End If

        Me.descFormaPagoCtaInicial = descFormaPagoInicial
        Me.descFormaPagoSaldoFin = descFormaPagoSaldo

        Me.descEntidadFin = descEntidadFin
    End Sub

    '-------   MENU REPORTE VENTA  ------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, _
               ByVal fchVenta As String, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
               ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal telefonoFijo As String, _
               ByVal telefonoCelular As String, ByVal totalSeparacion As Decimal, ByVal fchSeparacion As String, _
               ByVal ctaInicial As Decimal, ByVal saldo As Decimal, ByVal descEntidadFin As String, _
               ByVal estado As String, ByVal idUsuario As Int32)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchVenta = fchVenta

        _Ecliente = New Ecliente
        _Ecliente.nombre = nombre
        _Ecliente.apePaterno = apePaterno
        _Ecliente.apeMaterno = apeMaterno
        _Ecliente.EtpoDcmto = New EtpoDcmto
        _Ecliente.EtpoDcmto.idTpoDcmto = idTpoDcmto
        _Ecliente.nroDocumento = nroDocumento
        _Ecliente.telefonoFijo = telefonoFijo
        _Ecliente.telefonoCelular = telefonoCelular

        Me.totalSeparacion = totalSeparacion
        Me.fchSeparacion = fchSeparacion
        Me.ctaInicial = ctaInicial

        Me.saldo = saldo
        _EentidadFin = New EentidadFin
        _EentidadFin.descEntidadFin = descEntidadFin

        Me.estado = estado
        Me.idUsuario = idUsuario

    End Sub

    '-------   MENU AHORRO PREVIO | ATENCION CLIENTE    ------'
    Public Sub New(ByVal idProyecto As Int32, ByVal descProyecto As String, ByVal idEtapa As Int32, ByVal descEtapa As String, _
                   ByVal idSeparacionVenta As Int32, ByVal fchSeparacion As String, ByVal idVendedor As Int32, ByVal nombre As String, _
                   ByVal apePaterno As String, ByVal apeMaterno As String, ByVal totalSeparacion As Decimal, ByVal fchVencimiento As String, _
                   ByVal ctaInicial As Decimal, ByVal financiamiento As Decimal, ByVal saldo As Decimal, ByVal total As Decimal, _
                   ByVal descGestion As String, ByVal observacion As String)
        Me.idProyecto = idProyecto
        Me.descProyecto = descProyecto
        Me.Eproyecto = New Eproyecto(idProyecto, descProyecto)
        Me.idEtapa = idEtapa
        Me.descEtapa = descEtapa
        Me.Eetapa = New Eetapa(idEtapa, descEtapa)
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchSeparacion = fchSeparacion
        Me.Evendedor = New Evendedor(idVendedor, nombre, apePaterno, apeMaterno)
        Me.totalSeparacion = totalSeparacion
        Me.fchVencimiento = fchVencimiento
        Me.ctaInicial = ctaInicial
        Me.financiamiento = financiamiento
        Me.saldo = saldo
        Me.total = total
        Me.descGestion = descGestion
        Me.observacion = observacion
    End Sub

    '-------   MENU REPORTE - SEPARACION VENTA  ------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal fchVenta As String, ByVal nombre As String, _
                   ByVal apePaterno As String, ByVal apeMaterno As String, ByVal razonSocial As String, ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, _
                   ByVal nroDocumento As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal totalPrecioVenta As Decimal, ByVal totalSeparacion As Decimal, _
                   ByVal fchSeparacion As String, ByVal ctaInicial As Decimal, ByVal saldo As Decimal, ByVal descFormaPago As String, ByVal descEntidadFin As String, _
                   ByVal fchVencimiento As String, ByVal financiamiento As Decimal, ByVal observacion As String)
        Me.idProyecto = idProyecto
        'Me.descProyecto = descProyecto
        Me.Eproyecto = New Eproyecto(idProyecto, descProyecto)
        Me.idEtapa = idEtapa
        'Me.descEtapa = descEtapa
        Me.Eetapa = New Eetapa(idEtapa, descEtapa)
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchVenta = fchVenta
        Me.Ecliente = New Ecliente(nombre, apePaterno, apeMaterno)
        Me.Ecliente.razonSocial = razonSocial
        Me.Ecliente.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.Ecliente.nroDocumento = nroDocumento.Trim
        Me.nroDocumento = nroDocumento.Trim
        Me.Ecliente.telefonoFijo = telefonoFijo
        Me.Ecliente.telefonoCelular = telefonoCelular
        Me.totalPrecioVenta = totalPrecioVenta
        Me.totalSeparacion = totalSeparacion
        Me.fchSeparacion = fchSeparacion
        Me.ctaInicial = ctaInicial
        Me.saldo = saldo
        Me.descFormaPago = descFormaPago
        Me.descEntidadFin = descEntidadFin
        Me.fchVencimiento = fchVencimiento
        Me.financiamiento = financiamiento
        Me.observacion = observacion
    End Sub

    '-------   MENU COBRANZA     -----------'
    Public Sub New(ByVal idSeparacionVenta As Int32, ByVal detalle As String)
        Me.idSeparacionVenta = idSeparacionVenta
        Me.detalle = detalle
    End Sub
    '---------------------------------------'

#End Region

End Class
